home *** CD-ROM | disk | FTP | other *** search
/ 10,000 Great Games / 10,000 Great Games.iso / Product / 25 / Setup.exe / scripts / frame_166 / DoAction.as
Text File  |  2001-11-16  |  357b  |  19 lines
  1. if(DealInfo02 eq "BlackJack!")
  2. {
  3.    TheDiff = eval("/:currentbet");
  4. }
  5. else
  6. {
  7.    TheDiff = "0";
  8. }
  9. temp = "1";
  10. while(piles >= temp)
  11. {
  12.    if(eval("PileInfo0" add temp add "/:t2") eq "Insured")
  13.    {
  14.       set("/:money",eval("/:money") + TheDiff);
  15.       set("/:Totalbet",eval("/:Totalbet") - eval("/:currentbet") / "2");
  16.    }
  17.    temp += "1";
  18. }
  19.